In the following appendix, I present the R Code for an alternative, fuzzy-set calibration of the data.
First, I load the required R packages1:
library(QCA)
library(QCA3)
library(wordcloud)
library(SetMethods)
library(car)Next, I import the raw data and create an empty data-set for the QCA data-set:
data <- read.csv("../data/raw-data.csv")
data$X <- NULL # clean up import artifact
data$cases <- paste(data$IO, data$Year, sep = "") # name cases
data_qca <- as.data.frame(matrix(0, ncol = 0, nrow = 70))
data_qca$cases <- data$cases
# add case names as row names
row.names(data_qca) <- data_qca$casesCalibration
The following code-blocks show the steps I took to calibrate the data-set. Again, the detailed description is included in Chapter 5.
Talk
thr1 <- 0.8
data_qca$TALK.Part <- c(thr1, 1, 1, thr1, thr1, rep(0, 31), rep(thr1, 5),
1,thr1, rep(1, 3), rep(thr1, 3), 1, rep(thr1, 4), 1, 0, 1, 1,
rep(thr1, 10), 1, 1)
data_qca$TALK.Trans <- c(rep(0, 36), rep(thr1, 9), 1, rep(thr1, 8), 1, 0,
rep(thr1, 2), 1, thr1, thr1, 1, rep(thr1, 7), 1)Decision
thr1 <- 0.7
thr2 <- 0.9
data_qca$DEC.Part <- c(rep(0, 15), rep(1, 4), rep(0, 36), rep(1, 7),
rep(0,8))
data_qca$DEC.Trans <- c(rep(0, 29), rep(thr1, 7), rep(thr2, 7),
rep(1, 12), 0, thr1, rep(thr2, 11), rep(1, 2))Action
data_qca$ACT.Part.1 <- c(0, rep(1, 7), rep(0, 26), rep(1, 21), rep(1, 4),
rep(0, 8), rep(1, 3))
data_qca$ACT.Part.2 <- c(rep(0, 51), rep(1, 4), rep(0, 12), rep(1, 3))
data_qca$ACT.Part.4 <- c(rep(0, 25), rep(1, 13), rep(0, 3), rep(1, 5),
rep(0, 2), rep(1, 7), rep(0, 7), rep(1, 3),0, 0, 1, 1, 1)
data_qca$ACT.Trans <- c(rep(0, 4), rep(1, 3), rep(0, 38), rep(1, 10),
rep(0, 7), rep(1, 4), rep(0, 4))Resource-based conditions
thr1 <- 0.8
data_qca$RB.Budget <- c(rep(0, 26), rep(thr1, 4), rep(0, 6), rep(thr1, 9),
rep(0, 10), rep(0, 2), rep(1, 4), rep(0, 6), rep(thr1, 3))
data_qca$RB.Inequality <- recode(data$RB.Inequality,
recodes = "0:0.8126000=0; 0.8126313:0.9=1")
data_qca$RB.Complexity <- c(rep(1, 55), rep(0, 15))Norm-based conditions
thr1 <- 0.8
data_qca$NB.visibility.all <- c(rep(0, 29), rep(thr1, 5), rep(1, 4),
rep(thr1, 7), rep(1, 6), rep(thr1, 3), 1, rep(0, 15))
data_qca$NB.visibility.hl <- c(rep(0, 29), rep(1, 3), rep(0, 10),
rep(1, 5), rep(0, 5), rep(1, 3), rep(0, 15))
data_qca$NB.gov.depth <- c(rep(0, 13), rep(thr1, 21), rep(1, 21), rep(0, 15))
data_qca$NB.dem.mem <- c(rep(0, 36), rep(1, 19), rep(0, 7), rep(1, 8))
data_qca$NB.og.norm <- c(rep(0, 33), rep(thr1, 6), rep(1, 16), rep(1, 15))QCA analyses
Next, I present the analysis of the individual outcome variables.
Participation Talk
#truth table w/o IAEA1957:1961, OPCW 1997
data_qca$TALKPART <- data_qca$TALK.Part # for QCA package conventions
tt <- truthTable(data_qca[c(6:55, 57:70), c(18, 10:17)], outcome =
c("TALKPART"), incl.cut1=0.8, sort.by="incl",
show.cases = TRUE)
# necessary conditions for participation talk
superSubset(data_qca[c(6:55, 57:70), c(18, 10:17)], outcome =
"TALKPART", relation="necessity", incl.cut=1, cov.cut=0.8)##
## incl cov.r
## -----------------------------------------
## 1 NB.OG.NORM 1.000 0.816
## 2 rb.complexity+NB.DEM.MEM 1.000 0.861
## 3 RB.INEQUALITY+NB.DEM.MEM 1.000 0.861
## -----------------------------------------# neg. outcome, to check for contradictions
superSubset(data_qca[c(6:55, 57:70), c(18, 10:17)], outcome =
"TALKPART", relation="necessity", incl.cut=0.9, cov.cut=0.8, neg.out = T)##
## incl cov.r
## --------------------------------------
## 1 nb.dem.mem+nb.og.norm 0.910 0.862
## --------------------------------------
## sufficient conditions without nc og.norm
tt <- truthTable(data_qca[c(6:55, 57:70), c(18, 10:16)],
outcome = c("TALKPART"), incl.cut1=0.8, sort.by="incl",
show.cases = TRUE)
eqmcc(tt, include="?", show.cases = TRUE, details = TRUE)##
## n OUT = 1/0/C: 33/31/0
## Total : 64
##
## Number of multiple-covered cases: 8
##
## M1: NB.DEM.MEM + (rb.complexity) <=> TALKPART
## M2: NB.DEM.MEM + (RB.INEQUALITY) <=> TALKPART
##
## -------------------
## incl cov.r cov.u (M1) (M2)
## ---------------------------------------------------
## 1 NB.DEM.MEM 0.859 0.817 0.486 0.577 0.486
## ---------------------------------------------------
## 2 rb.complexity 0.857 0.423 0.000 0.183
## 3 RB.INEQUALITY 0.859 0.514 0.000 0.183
## ---------------------------------------------------
## M1 0.861 1.000
## M2 0.861 1.000
##
## cases
## -----------------------
## 1 NB.DEM.MEM IAEA2009,IAEA2010,IAEA2011; IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1999,IAEA2000,IAEA2001; OPCW2009,OPCW2010,OPCW2011; IAEA2002,IAEA2003;
## IAEA2004,IAEA2005,IAEA2006,IAEA2007,IAEA2008; OPCW2004,OPCW2005,OPCW2006,OPCW2007,OPCW2008
## -----------------------
## 2 rb.complexity OPCW2009,OPCW2010,OPCW2011; OPCW1998,OPCW2003; OPCW1999,OPCW2000,OPCW2001,OPCW2002;
## OPCW2004,OPCW2005,OPCW2006,OPCW2007,OPCW2008
## 3 RB.INEQUALITY IAEA2009,IAEA2010,IAEA2011; OPCW2009,OPCW2010,OPCW2011; OPCW1998,OPCW2003;
## OPCW1999,OPCW2000,OPCW2001,OPCW2002; OPCW2004,OPCW2005,OPCW2006,OPCW2007,OPCW2008
## -----------------------# neg. outcome, to check for contradictions
tt <- truthTable(data_qca[c(6:55, 57:70), c(18, 10:16)],
outcome = c("TALKPART"), incl.cut1=0.8, sort.by="incl",
show.cases = TRUE, neg.out = T)
eqmcc(tt, include="?", show.cases = TRUE, details = TRUE)##
## n OUT = 1/0/C: 31/33/0
## Total : 64
##
## Number of multiple-covered cases: 0
##
## M1: RB.COMPLEXITY*nb.dem.mem <=> talkpart
## M2: rb.inequality*nb.dem.mem <=> talkpart
##
## -------------------
## incl cov.r cov.u (M1) (M2)
## --------------------------------------------------------------
## 1 RB.COMPLEXITY*nb.dem.mem 1.000 0.871 0.000 -
## 2 rb.inequality*nb.dem.mem 1.000 0.871 0.000 -
## --------------------------------------------------------------
## M1 1.000 0.871
## M2 1.000 0.871
##
## cases
## ----------------------------------
## 1 RB.COMPLEXITY*nb.dem.mem IAEA1962,IAEA1963,IAEA1964,IAEA1965,IAEA1966,IAEA1967,IAEA1968,IAEA1969;
## IAEA1970,IAEA1971,IAEA1972,IAEA1973,IAEA1974,IAEA1975,IAEA1976,IAEA1977,IAEA1978,IAEA1979,IAEA1980,IAEA1981,IAEA1982;
## IAEA1989,IAEA1990,IAEA1991,IAEA1992; IAEA1987,IAEA1988;
## IAEA1983,IAEA1984,IAEA1985; IAEA1986
## 2 rb.inequality*nb.dem.mem IAEA1962,IAEA1963,IAEA1964,IAEA1965,IAEA1966,IAEA1967,IAEA1968,IAEA1969;
## IAEA1970,IAEA1971,IAEA1972,IAEA1973,IAEA1974,IAEA1975,IAEA1976,IAEA1977,IAEA1978,IAEA1979,IAEA1980,IAEA1981,IAEA1982;
## IAEA1989,IAEA1990,IAEA1991,IAEA1992; IAEA1987,IAEA1988;
## IAEA1983,IAEA1984,IAEA1985; IAEA1986
## ----------------------------------# exclude complexity, because it is redundant
Transparency Talk
data_qca$TALKTRANS <- data_qca$TALK.Trans # for QCA package conventions
tt <- truthTable(data_qca[c(1:55, 57:70), c(19, 10:17)],
outcome = c("TALKTRANS"), incl.cut1=0.8, sort.by="incl",
show.cases = TRUE)
# necessary conditions
superSubset(data_qca[c(1:55, 57:60), c(19, 10:17)], outcome = "TALKTRANS",
relation="nec", incl.cut=0.9, cov.cut=0.76) ##
## incl cov.r
## -----------------------------------------
## 1 NB.OG.NORM 1.000 0.766
## 2 rb.complexity+NB.DEM.MEM 1.000 0.826
## 3 RB.INEQUALITY+NB.DEM.MEM 1.000 0.826
## -----------------------------------------# neg. outcome, to check for contradictions
superSubset(data_qca[c(1:55, 57:60), c(19, 10:17)], outcome = "TALKTRANS",
relation="nec", incl.cut=0.9, cov.cut=0.76, neg.out = T) ##
## incl cov.r
## -----------------------------------------------------------
## 1 nb.dem.mem 0.915 0.915
## 2 rb.budget 0.910 0.798
## 3 RB.COMPLEXITY*nb.dem.mem 0.900 1.000
## 4 rb.inequality*nb.dem.mem 0.900 1.000
## 5 rb.budget*RB.COMPLEXITY 0.905 0.812
## 6 rb.inequality*RB.COMPLEXITY*nb.dem.mem 0.900 1.000
## 7 nb.visibility.hl+nb.og.norm 0.970 0.761
## 8 nb.visibility.all+nb.og.norm 0.915 0.915
## 9 NB.VISIBILITY.HL+nb.gov.depth+nb.og.norm 0.900 0.779
## 10 rb.complexity+NB.VISIBILITY.HL+nb.og.norm 0.900 0.779
## 11 RB.INEQUALITY+NB.VISIBILITY.HL+nb.og.norm 0.900 0.779
## 12 RB.BUDGET+nb.gov.depth+nb.og.norm 0.900 0.804
## 13 RB.BUDGET+rb.complexity+nb.og.norm 0.900 0.804
## 14 RB.BUDGET+RB.INEQUALITY+nb.og.norm 0.910 0.762
## -----------------------------------------------------------
# sufficient conditions, w/o og. norm
tt <- truthTable(data_qca[c(1:55, 57:70), c(19, 10:16)],
outcome = c("TALKTRANS"), incl.cut1=0.8, sort.by="incl",
show.cases = TRUE)
eqmcc(tt, include="?", show.cases = TRUE, details = TRUE)##
## n OUT = 1/0/C: 33/36/0
## Total : 69
##
## Number of multiple-covered cases: 8
##
## M1: NB.DEM.MEM + (rb.complexity) <=> TALKTRANS
## M2: NB.DEM.MEM + (RB.INEQUALITY) <=> TALKTRANS
##
## -------------------
## incl cov.r cov.u (M1) (M2)
## ---------------------------------------------------
## 1 NB.DEM.MEM 0.822 0.810 0.474 0.569 0.474
## ---------------------------------------------------
## 2 rb.complexity 0.843 0.431 0.000 0.190
## 3 RB.INEQUALITY 0.847 0.526 0.000 0.190
## ---------------------------------------------------
## M1 0.830 1.000
## M2 0.830 1.000
##
## cases
## -----------------------
## 1 NB.DEM.MEM IAEA2009,IAEA2010,IAEA2011; IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1999,IAEA2000,IAEA2001; OPCW2009,OPCW2010,OPCW2011; IAEA2002,IAEA2003;
## IAEA2004,IAEA2005,IAEA2006,IAEA2007,IAEA2008; OPCW2004,OPCW2005,OPCW2006,OPCW2007,OPCW2008
## -----------------------
## 2 rb.complexity OPCW2009,OPCW2010,OPCW2011; OPCW1998,OPCW2003; OPCW1999,OPCW2000,OPCW2001,OPCW2002;
## OPCW2004,OPCW2005,OPCW2006,OPCW2007,OPCW2008
## 3 RB.INEQUALITY IAEA2009,IAEA2010,IAEA2011; OPCW2009,OPCW2010,OPCW2011; OPCW1998,OPCW2003;
## OPCW1999,OPCW2000,OPCW2001,OPCW2002; OPCW2004,OPCW2005,OPCW2006,OPCW2007,OPCW2008
## -----------------------# neg. outcome, to check for contradictions
tt <- truthTable(data_qca[c(1:55, 57:70), c(19, 10:16)],
outcome = c("TALKTRANS"), incl.cut1=0.8, sort.by="incl",
show.cases = TRUE, neg.out = T)
eqmcc(tt, include="?", show.cases = TRUE, details = TRUE)##
## n OUT = 1/0/C: 36/33/0
## Total : 69
##
## Number of multiple-covered cases: 0
##
## M1: RB.COMPLEXITY*nb.dem.mem <=> talktrans
## M2: rb.inequality*nb.dem.mem <=> talktrans
##
## -------------------
## incl cov.r cov.u (M1) (M2)
## --------------------------------------------------------------
## 1 RB.COMPLEXITY*nb.dem.mem 1.000 0.865 0.000 -
## 2 rb.inequality*nb.dem.mem 1.000 0.865 0.000 -
## --------------------------------------------------------------
## M1 1.000 0.865
## M2 1.000 0.865
##
## cases
## ----------------------------------
## 1 RB.COMPLEXITY*nb.dem.mem IAEA1957,IAEA1958,IAEA1959,IAEA1960,IAEA1961,IAEA1962,IAEA1963,IAEA1964,IAEA1965,IAEA1966,IAEA1967,IAEA1968,IAEA1969;
## IAEA1970,IAEA1971,IAEA1972,IAEA1973,IAEA1974,IAEA1975,IAEA1976,IAEA1977,IAEA1978,IAEA1979,IAEA1980,IAEA1981,IAEA1982;
## IAEA1989,IAEA1990,IAEA1991,IAEA1992; IAEA1987,IAEA1988;
## IAEA1983,IAEA1984,IAEA1985; IAEA1986
## 2 rb.inequality*nb.dem.mem IAEA1957,IAEA1958,IAEA1959,IAEA1960,IAEA1961,IAEA1962,IAEA1963,IAEA1964,IAEA1965,IAEA1966,IAEA1967,IAEA1968,IAEA1969;
## IAEA1970,IAEA1971,IAEA1972,IAEA1973,IAEA1974,IAEA1975,IAEA1976,IAEA1977,IAEA1978,IAEA1979,IAEA1980,IAEA1981,IAEA1982;
## IAEA1989,IAEA1990,IAEA1991,IAEA1992; IAEA1987,IAEA1988;
## IAEA1983,IAEA1984,IAEA1985; IAEA1986
## ----------------------------------# exclude complexity, because it is redundant
Participation Decision
data_qca$DECPART <- data_qca$DEC.Part # for QCA package conventions
# without IAEA1972:1975
tt <- truthTable(data_qca[c(1:15, 20:70), c(20, 10:17)],
outcome = c("DECPART"), incl.cut1=1, sort.by="incl",
show.cases = TRUE)
superSubset(data_qca[c(1:15, 20:70), c(20, 10:17)], outcome = "DECPART",
relation="nec", incl.cut=1, cov.cut=1) ##
## incl cov.r
## -------------------------------------------------------------------------------------------------------------------
## 1 rb.complexity*nb.dem.mem 1.000 1.000
## 2 RB.INEQUALITY*nb.dem.mem 1.000 1.000
## 3 rb.complexity*nb.dem.mem*NB.OG.NORM 1.000 1.000
## 4 rb.complexity*nb.gov.depth*nb.dem.mem 1.000 1.000
## 5 rb.complexity*nb.visibility.hl*nb.dem.mem 1.000 1.000
## 6 rb.complexity*nb.visibility.all*nb.dem.mem 1.000 1.000
## 7 RB.INEQUALITY*nb.dem.mem*NB.OG.NORM 1.000 1.000
## 8 RB.INEQUALITY*nb.gov.depth*nb.dem.mem 1.000 1.000
## 9 RB.INEQUALITY*nb.visibility.hl*nb.dem.mem 1.000 1.000
## 10 RB.INEQUALITY*nb.visibility.all*nb.dem.mem 1.000 1.000
## 11 RB.INEQUALITY*rb.complexity*nb.dem.mem 1.000 1.000
## 12 rb.complexity*nb.gov.depth*nb.dem.mem*NB.OG.NORM 1.000 1.000
## 13 rb.complexity*nb.visibility.hl*nb.dem.mem*NB.OG.NORM 1.000 1.000
## 14 rb.complexity*nb.visibility.hl*nb.gov.depth*nb.dem.mem 1.000 1.000
## 15 rb.complexity*nb.visibility.all*nb.dem.mem*NB.OG.NORM 1.000 1.000
## 16 rb.complexity*nb.visibility.all*nb.gov.depth*nb.dem.mem 1.000 1.000
## 17 rb.complexity*nb.visibility.all*nb.visibility.hl*nb.dem.mem 1.000 1.000
## 18 RB.INEQUALITY*nb.gov.depth*nb.dem.mem*NB.OG.NORM 1.000 1.000
## 19 RB.INEQUALITY*nb.visibility.hl*nb.dem.mem*NB.OG.NORM 1.000 1.000
## 20 RB.INEQUALITY*nb.visibility.hl*nb.gov.depth*nb.dem.mem 1.000 1.000
## 21 RB.INEQUALITY*nb.visibility.all*nb.dem.mem*NB.OG.NORM 1.000 1.000
## 22 RB.INEQUALITY*nb.visibility.all*nb.gov.depth*nb.dem.mem 1.000 1.000
## 23 RB.INEQUALITY*nb.visibility.all*nb.visibility.hl*nb.dem.mem 1.000 1.000
## 24 RB.INEQUALITY*rb.complexity*nb.dem.mem*NB.OG.NORM 1.000 1.000
## 25 RB.INEQUALITY*rb.complexity*nb.gov.depth*nb.dem.mem 1.000 1.000
## 26 RB.INEQUALITY*rb.complexity*nb.visibility.hl*nb.dem.mem 1.000 1.000
## 27 RB.INEQUALITY*rb.complexity*nb.visibility.all*nb.dem.mem 1.000 1.000
## 28 rb.complexity*nb.visibility.hl*nb.gov.depth*nb.dem.mem*NB.OG.NORM 1.000 1.000
## 29 rb.complexity*nb.visibility.all*nb.gov.depth*nb.dem.mem*NB.OG.NORM 1.000 1.000
## 30 rb.complexity*nb.visibility.all*nb.visibility.hl*nb.dem.mem*NB.OG.NORM 1.000 1.000
## 31 rb.complexity*nb.visibility.all*nb.visibility.hl*nb.gov.depth*nb.dem.mem 1.000 1.000
## 32 RB.INEQUALITY*nb.visibility.hl*nb.gov.depth*nb.dem.mem*NB.OG.NORM 1.000 1.000
## 33 RB.INEQUALITY*nb.visibility.all*nb.gov.depth*nb.dem.mem*NB.OG.NORM 1.000 1.000
## 34 RB.INEQUALITY*nb.visibility.all*nb.visibility.hl*nb.dem.mem*NB.OG.NORM 1.000 1.000
## 35 RB.INEQUALITY*nb.visibility.all*nb.visibility.hl*nb.gov.depth*nb.dem.mem 1.000 1.000
## 36 RB.INEQUALITY*rb.complexity*nb.gov.depth*nb.dem.mem*NB.OG.NORM 1.000 1.000
## 37 RB.INEQUALITY*rb.complexity*nb.visibility.hl*nb.dem.mem*NB.OG.NORM 1.000 1.000
## 38 RB.INEQUALITY*rb.complexity*nb.visibility.hl*nb.gov.depth*nb.dem.mem 1.000 1.000
## 39 RB.INEQUALITY*rb.complexity*nb.visibility.all*nb.dem.mem*NB.OG.NORM 1.000 1.000
## 40 RB.INEQUALITY*rb.complexity*nb.visibility.all*nb.gov.depth*nb.dem.mem 1.000 1.000
## 41 RB.INEQUALITY*rb.complexity*nb.visibility.all*nb.visibility.hl*nb.dem.mem 1.000 1.000
## 42 rb.complexity*nb.visibility.all*nb.visibility.hl*nb.gov.depth*nb.dem.mem*NB.OG.NORM 1.000 1.000
## 43 RB.INEQUALITY*nb.visibility.all*nb.visibility.hl*nb.gov.depth*nb.dem.mem*NB.OG.NORM 1.000 1.000
## 44 RB.INEQUALITY*rb.complexity*nb.visibility.hl*nb.gov.depth*nb.dem.mem*NB.OG.NORM 1.000 1.000
## 45 RB.INEQUALITY*rb.complexity*nb.visibility.all*nb.gov.depth*nb.dem.mem*NB.OG.NORM 1.000 1.000
## 46 RB.INEQUALITY*rb.complexity*nb.visibility.all*nb.visibility.hl*nb.dem.mem*NB.OG.NORM 1.000 1.000
## 47 RB.INEQUALITY*rb.complexity*nb.visibility.all*nb.visibility.hl*nb.gov.depth*nb.dem.mem 1.000 1.000
## 48 RB.INEQUALITY*rb.complexity*nb.visibility.all*nb.visibility.hl*nb.gov.depth*nb.dem.mem*NB.OG.NORM 1.000 1.000
## -------------------------------------------------------------------------------------------------------------------# neg. outcome, to check for contradictions
superSubset(data_qca[c(1:15, 20:70), c(20, 10:17)], outcome = "DECPART",
relation="nec", incl.cut=1, cov.cut=1, neg.out = T) ##
## incl cov.r
## -----------------------------------------
## 1 RB.COMPLEXITY+NB.DEM.MEM 1.000 1.000
## 2 rb.inequality+NB.DEM.MEM 1.000 1.000
## -----------------------------------------# sufficient conditions
eqmcc(tt, include="?", show.cases = TRUE, details = TRUE)##
## n OUT = 1/0/C: 7/59/0
## Total : 66
##
## Number of multiple-covered cases: 0
##
## M1: rb.complexity*nb.dem.mem <=> DECPART
## M2: RB.INEQUALITY*nb.dem.mem <=> DECPART
## M3: nb.gov.depth*nb.dem.mem*NB.OG.NORM => DECPART
## M4: nb.visibility.all*nb.dem.mem*NB.OG.NORM => DECPART
##
##
## -------------------
## incl cov.r cov.u (M1) (M2)
## -----------------------------------------------------------------------------
## 1 rb.complexity*nb.dem.mem 1.000 1.000 0.000 -
## 2 RB.INEQUALITY*nb.dem.mem 1.000 1.000 0.000 -
## 3 nb.gov.depth*nb.dem.mem*NB.OG.NORM 0.972 1.000 0.000
## 4 nb.visibility.all*nb.dem.mem*NB.OG.NORM 0.972 1.000 0.000
## -----------------------------------------------------------------------------
## M1 1.000 1.000
## M2 1.000 1.000
## M3 0.972 1.000
## M4 0.972 1.000
##
## --------------------------------------------------------
## (M3) (M4)
## --------------------------------------------------------
## 1 rb.complexity*nb.dem.mem
## 2 RB.INEQUALITY*nb.dem.mem
## 3 nb.gov.depth*nb.dem.mem*NB.OG.NORM -
## 4 nb.visibility.all*nb.dem.mem*NB.OG.NORM -
## --------------------------------------------------------
##
## cases
## -------------------------------------------------
## 1 rb.complexity*nb.dem.mem OPCW1997,OPCW1998,OPCW2003; OPCW1999,OPCW2000,OPCW2001,OPCW2002
## 2 RB.INEQUALITY*nb.dem.mem OPCW1997,OPCW1998,OPCW2003; OPCW1999,OPCW2000,OPCW2001,OPCW2002
## 3 nb.gov.depth*nb.dem.mem*NB.OG.NORM OPCW1997,OPCW1998,OPCW2003; OPCW1999,OPCW2000,OPCW2001,OPCW2002
## 4 nb.visibility.all*nb.dem.mem*NB.OG.NORM OPCW1997,OPCW1998,OPCW2003; OPCW1999,OPCW2000,OPCW2001,OPCW2002
## -------------------------------------------------QCAfit(fsand(fsnot(data_qca$NB.dem.mem[c(1:15, 20:70)]),
data_qca$RB.Inequality[c(1:15, 20:70)]),
data_qca$DECPART[c(1:15, 20:70)])## Cons. Suf. Cov. Suf. PRI PRODUCT
## [1,] 1 1 1 1
## attr(,"class")
## [1] "SetMethod"# neg. outcome, to check for contradictions
tt <- truthTable(data_qca[c(1:15, 20:70), c(20, 10:17)],
outcome = c("DECPART"), incl.cut1=1, sort.by="incl",
show.cases = TRUE, neg.out = T)
eqmcc(tt, include="?", show.cases = TRUE, details = TRUE)##
## n OUT = 1/0/C: 59/7/0
## Total : 66
##
## Number of multiple-covered cases: 19
##
## M1: NB.DEM.MEM + (RB.COMPLEXITY) <=> decpart
## M2: NB.DEM.MEM + (rb.inequality) <=> decpart
##
## -------------------
## incl cov.r cov.u (M1) (M2)
## ---------------------------------------------------
## 1 NB.DEM.MEM 1.000 0.458 0.136 0.136 0.186
## ---------------------------------------------------
## 2 RB.COMPLEXITY 1.000 0.864 0.000 0.542
## 3 rb.inequality 1.000 0.814 0.000 0.542
## ---------------------------------------------------
## M1 1.000 1.000
## M2 1.000 1.000
##
## cases
## -----------------------
## 1 NB.DEM.MEM IAEA2004,IAEA2005,IAEA2006,IAEA2007,IAEA2008; IAEA2002,IAEA2003;
## OPCW2004,OPCW2005,OPCW2006,OPCW2007,OPCW2008; IAEA2009,IAEA2010,IAEA2011;
## IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998; IAEA1999,IAEA2000,IAEA2001;
## OPCW2009,OPCW2010,OPCW2011
## -----------------------
## 2 RB.COMPLEXITY IAEA1957,IAEA1958,IAEA1959,IAEA1960,IAEA1961,IAEA1962,IAEA1963,IAEA1964,IAEA1965,IAEA1966,IAEA1967,IAEA1968,IAEA1969;
## IAEA1970,IAEA1971,IAEA1976,IAEA1977,IAEA1978,IAEA1979,IAEA1980,IAEA1981,IAEA1982;
## IAEA1989; IAEA1990,IAEA1991,IAEA1992; IAEA2004,IAEA2005,IAEA2006,IAEA2007,IAEA2008;
## IAEA1987,IAEA1988; IAEA2002,IAEA2003; IAEA2009,IAEA2010,IAEA2011;
## IAEA1983,IAEA1984,IAEA1985; IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1986; IAEA1999,IAEA2000,IAEA2001
## 3 rb.inequality IAEA1957,IAEA1958,IAEA1959,IAEA1960,IAEA1961,IAEA1962,IAEA1963,IAEA1964,IAEA1965,IAEA1966,IAEA1967,IAEA1968,IAEA1969;
## IAEA1970,IAEA1971,IAEA1976,IAEA1977,IAEA1978,IAEA1979,IAEA1980,IAEA1981,IAEA1982;
## IAEA1989; IAEA1990,IAEA1991,IAEA1992; IAEA2004,IAEA2005,IAEA2006,IAEA2007,IAEA2008;
## IAEA1987,IAEA1988; IAEA2002,IAEA2003; IAEA1983,IAEA1984,IAEA1985;
## IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998; IAEA1986;
## IAEA1999,IAEA2000,IAEA2001
## -----------------------
Transparency Decision
data_qca$DECTRANS <- data_qca$DEC.Trans # for QCA package conventions
tt <- truthTable(data_qca[c(1:55, 57:70), c(21, 10:17)],
outcome = c("DECTRANS"), incl.cut1=0.8, sort.by="incl",
show.cases = TRUE)
# necessary conditions
superSubset(data_qca[c(1:55, 57:70), c(21, 10:17)], outcome = "DECTRANS",
relation="nec", incl.cut=0.9, cov.cut=0.92) ##
## incl cov.r
## ------------------------------------------------
## 1 NB.OG.NORM 0.913 0.940
## 2 rb.complexity+NB.VISIBILITY.ALL 0.958 0.927
## 3 RB.INEQUALITY+NB.VISIBILITY.ALL 0.969 0.928
## ------------------------------------------------# neg. outcome, to check for contradictions
superSubset(data_qca[c(1:55, 57:70), c(21, 10:17)], outcome = "DECTRANS",
relation="nec", incl.cut=0.9, cov.cut=1, neg.out = T) ##
## incl cov.r
## ------------------------------------------------------------------------------------
## 1 nb.visibility.all*nb.dem.mem*nb.og.norm 0.904 1.000
## 2 RB.COMPLEXITY*nb.visibility.all*nb.dem.mem 0.904 1.000
## 3 rb.inequality*nb.visibility.all*nb.dem.mem 0.904 1.000
## 4 RB.COMPLEXITY*nb.visibility.all*nb.dem.mem*nb.og.norm 0.904 1.000
## 5 rb.inequality*nb.visibility.all*nb.dem.mem*nb.og.norm 0.904 1.000
## 6 rb.inequality*RB.COMPLEXITY*nb.visibility.all*nb.dem.mem 0.904 1.000
## 7 rb.inequality*RB.COMPLEXITY*nb.visibility.all*nb.dem.mem*nb.og.norm 0.904 1.000
## ------------------------------------------------------------------------------------
# sufficient conditions w/o og.norm
tt <- truthTable(data_qca[c(1:55, 57:70), c(21, 10:16)],
outcome = c("DECTRANS"), incl.cut1=0.8, sort.by="incl",
show.cases = TRUE)
eqmcc(tt, include="?", show.cases = TRUE, details = TRUE)##
## n OUT = 1/0/C: 36/33/0
## Total : 69
##
## Number of multiple-covered cases: 16
##
## M1: NB.DEM.MEM + NB.VISIBILITY.HL + (rb.complexity) <=> DECTRANS
## M2: NB.DEM.MEM + NB.VISIBILITY.HL + (RB.INEQUALITY) <=> DECTRANS
##
## -------------------
## incl cov.r cov.u (M1) (M2)
## ------------------------------------------------------
## 1 NB.DEM.MEM 0.952 0.718 0.291 0.291 0.291
## 2 NB.VISIBILITY.HL 0.909 0.279 0.059 0.059 0.059
## ------------------------------------------------------
## 3 rb.complexity 0.900 0.352 0.000 0.145
## 4 RB.INEQUALITY 0.918 0.436 0.000 0.145
## ------------------------------------------------------
## M1 0.917 0.922
## M2 0.917 0.922
##
## cases
## --------------------------
## 1 NB.DEM.MEM IAEA2004,IAEA2005,IAEA2006,IAEA2007,IAEA2008; IAEA2002,IAEA2003;
## IAEA2009,IAEA2010,IAEA2011; IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1999,IAEA2000,IAEA2001; OPCW2009,OPCW2010,OPCW2011;
## OPCW2004,OPCW2005,OPCW2006,OPCW2007,OPCW2008
## 2 NB.VISIBILITY.HL IAEA2002,IAEA2003; IAEA2009,IAEA2010,IAEA2011; IAEA1999,IAEA2000,IAEA2001;
## IAEA1987,IAEA1988; IAEA1986
## --------------------------
## 3 rb.complexity OPCW2009,OPCW2010,OPCW2011; OPCW2004,OPCW2005,OPCW2006,OPCW2007,OPCW2008;
## OPCW1999,OPCW2000,OPCW2001,OPCW2002; OPCW1998,OPCW2003
## 4 RB.INEQUALITY IAEA2009,IAEA2010,IAEA2011; OPCW2009,OPCW2010,OPCW2011;
## OPCW2004,OPCW2005,OPCW2006,OPCW2007,OPCW2008; OPCW1999,OPCW2000,OPCW2001,OPCW2002;
## OPCW1998,OPCW2003
## --------------------------QCAfit(fsor(data_qca$NB.dem.mem, data_qca$NB.visibility.hl,
data_qca$RB.Inequality)[c(1:55, 57:70)],
data_qca$DECTRANS[c(1:55, 57:70)] )## Cons. Suf. Cov. Suf. PRI PRODUCT
## [1,] 0.917 0.922 0.909 0.833
## attr(,"class")
## [1] "SetMethod"# neg. outcome, to check for contradictions
tt <- truthTable(data_qca[c(1:55, 57:70), c(21, 10:16)],
outcome = c("DECTRANS"), incl.cut1=0.8, sort.by="incl",
show.cases = TRUE, neg.out = T)
eqmcc(tt, include="?", show.cases = TRUE, details = TRUE)##
## n OUT = 1/0/C: 29/40/0
## Total : 69
##
## Number of multiple-covered cases: 0
##
## M1: RB.COMPLEXITY*nb.visibility.all <=> dectrans
## M2: rb.inequality*nb.visibility.all <=> dectrans
##
## -------------------
## incl cov.r cov.u (M1) (M2)
## ---------------------------------------------------------------------
## 1 RB.COMPLEXITY*nb.visibility.all 0.953 0.919 0.000 -
## 2 rb.inequality*nb.visibility.all 0.965 0.919 0.000 -
## ---------------------------------------------------------------------
## M1 0.953 0.919
## M2 0.965 0.919
##
## cases
## -----------------------------------------
## 1 RB.COMPLEXITY*nb.visibility.all IAEA1957,IAEA1958,IAEA1959,IAEA1960,IAEA1961,IAEA1962,IAEA1963,IAEA1964,IAEA1965,IAEA1966,IAEA1967,IAEA1968,IAEA1969;
## IAEA1970,IAEA1971,IAEA1972,IAEA1973,IAEA1974,IAEA1975,IAEA1976,IAEA1977,IAEA1978,IAEA1979,IAEA1980,IAEA1981,IAEA1982;
## IAEA1983,IAEA1984,IAEA1985
## 2 rb.inequality*nb.visibility.all IAEA1957,IAEA1958,IAEA1959,IAEA1960,IAEA1961,IAEA1962,IAEA1963,IAEA1964,IAEA1965,IAEA1966,IAEA1967,IAEA1968,IAEA1969;
## IAEA1970,IAEA1971,IAEA1972,IAEA1973,IAEA1974,IAEA1975,IAEA1976,IAEA1977,IAEA1978,IAEA1979,IAEA1980,IAEA1981,IAEA1982;
## IAEA1983,IAEA1984,IAEA1985
## -----------------------------------------
Participation Action: No. of NGOs
data_qca$ACTPART1 <- data_qca$ACT.Part.1 # for QCA package conventions
tt <- truthTable(data_qca[c(22, 10:17)], outcome = c("ACTPART1"),
incl.cut1=1, sort.by="incl", show.cases = TRUE)
# necessary conditions
superSubset(data_qca[c(22, 10:17)], outcome = "ACTPART1",
relation="nec", incl.cut=0.9, cov.cut=0.6) ##
## incl cov.r
## -----------------------------------------------
## 1 nb.gov.depth+NB.OG.NORM 0.971 0.644
## 2 nb.gov.depth+NB.DEM.MEM 0.943 0.645
## 3 NB.VISIBILITY.ALL+nb.gov.depth 0.943 0.609
## -----------------------------------------------# neg. outcome, to check for contradictions
superSubset(data_qca[c(22, 10:17)], outcome = "ACTPART1",
relation="nec", incl.cut=0.9, cov.cut=0.6, neg.out = T) ##
## incl cov.r
## ---------------------------------------------
## 1 nb.gov.depth+nb.og.norm 0.977 0.695
## 2 nb.gov.depth+nb.dem.mem 1.000 0.686
## 3 nb.visibility.all+nb.og.norm 0.977 0.671
## 4 nb.visibility.all+nb.dem.mem 1.000 0.660
## 5 rb.complexity+nb.og.norm 0.977 0.695
## 6 rb.complexity+nb.dem.mem 1.000 0.686
## 7 RB.INEQUALITY+nb.og.norm 0.977 0.655
## 8 RB.INEQUALITY+nb.dem.mem 1.000 0.648
## ---------------------------------------------## low governance depth is contradictory, necessary for OUT and out
# sufficient conditions
sc <- eqmcc(tt, include="?", show.cases = TRUE, details = TRUE)
sc##
## n OUT = 1/0/C: 22/48/0
## Total : 70
##
## Number of multiple-covered cases: 9
##
## M1: RB.BUDGET*NB.DEM.MEM + (NB.GOV.DEPTH*NB.DEM.MEM) => ACTPART1
## M2: RB.BUDGET*NB.DEM.MEM + (NB.VISIBILITY.ALL*NB.DEM.MEM) => ACTPART1
## M3: RB.BUDGET*NB.DEM.MEM + (RB.COMPLEXITY*NB.DEM.MEM) => ACTPART1
##
## --------------------------
## incl cov.r cov.u (M1) (M2) (M3)
## -------------------------------------------------------------------------
## 1 RB.BUDGET*NB.DEM.MEM 1.000 0.274 0.069 0.069 0.069 0.069
## -------------------------------------------------------------------------
## 2 NB.GOV.DEPTH*NB.DEM.MEM 1.000 0.543 0.000 0.337
## 3 NB.VISIBILITY.ALL*NB.DEM.MEM 1.000 0.486 0.000 0.280
## 4 RB.COMPLEXITY*NB.DEM.MEM 1.000 0.543 0.000 0.337
## -------------------------------------------------------------------------
## M1 1.000 0.611
## M2 1.000 0.554
## M3 1.000 0.611
##
## cases
## --------------------------------------
## 1 RB.BUDGET*NB.DEM.MEM IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1999,IAEA2000,IAEA2001; OPCW2009,OPCW2010,OPCW2011
## --------------------------------------
## 2 NB.GOV.DEPTH*NB.DEM.MEM IAEA2004,IAEA2005,IAEA2006,IAEA2007,IAEA2008;
## IAEA2002,IAEA2003; IAEA2009,IAEA2010,IAEA2011;
## IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1999,IAEA2000,IAEA2001
## 3 NB.VISIBILITY.ALL*NB.DEM.MEM IAEA2004,IAEA2005,IAEA2006,IAEA2007,IAEA2008;
## IAEA2002,IAEA2003; IAEA2009,IAEA2010,IAEA2011;
## IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1999,IAEA2000,IAEA2001
## 4 RB.COMPLEXITY*NB.DEM.MEM IAEA2004,IAEA2005,IAEA2006,IAEA2007,IAEA2008;
## IAEA2002,IAEA2003; IAEA2009,IAEA2010,IAEA2011;
## IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1999,IAEA2000,IAEA2001
## --------------------------------------factorize(sc)##
## M1: RB.BUDGET*NB.DEM.MEM + NB.GOV.DEPTH*NB.DEM.MEM
##
## F1: NB.DEM.MEM*(RB.BUDGET + NB.GOV.DEPTH)
##
##
## M2: RB.BUDGET*NB.DEM.MEM + NB.VISIBILITY.ALL*NB.DEM.MEM
##
## F1: NB.DEM.MEM*(RB.BUDGET + NB.VISIBILITY.ALL)
##
##
## M3: RB.BUDGET*NB.DEM.MEM + RB.COMPLEXITY*NB.DEM.MEM
##
## F1: NB.DEM.MEM*(RB.BUDGET + RB.COMPLEXITY)QCAfit(x = fsand(data_qca$NB.dem.mem, fsor(data_qca$RB.Budget,
data_qca$NB.gov.depth, data_qca$NB.visibility.all)),
y = data_qca$ACTPART1)## Cons. Suf. Cov. Suf. PRI PRODUCT
## [1,] 1 0.611 1 1
## attr(,"class")
## [1] "SetMethod"# neg. outcome, to check for contradictions
tt <- truthTable(data_qca[c(22, 10:17)], outcome = c("ACTPART1"),
incl.cut1=1, sort.by="incl", show.cases = TRUE,
neg.out = T)
eqmcc(tt, include="?", show.cases = TRUE, details = TRUE)##
## n OUT = 1/0/C: 19/51/0
## Total : 70
##
## Number of multiple-covered cases: 0
##
## M1: nb.visibility.all*NB.GOV.DEPTH + (NB.VISIBILITY.HL*nb.dem.mem)
## => actpart1
## M2: nb.visibility.all*NB.GOV.DEPTH + (NB.VISIBILITY.HL*nb.og.norm)
## => actpart1
##
## -------------------
## incl cov.r cov.u (M1) (M2)
## --------------------------------------------------------------------
## 1 nb.visibility.all*NB.GOV.DEPTH 0.873 0.394 0.377 0.377 0.377
## --------------------------------------------------------------------
## 2 NB.VISIBILITY.HL*nb.dem.mem 1.000 0.086 0.000 0.069
## 3 NB.VISIBILITY.HL*nb.og.norm 1.000 0.086 0.000 0.069
## --------------------------------------------------------------------
## M1 0.890 0.463
## M2 0.890 0.463
##
## cases
## ----------------------------------------
## 1 nb.visibility.all*NB.GOV.DEPTH IAEA1970,IAEA1971,IAEA1972,IAEA1973,IAEA1974,IAEA1975,IAEA1976,IAEA1977,IAEA1978,IAEA1979,IAEA1980,IAEA1981,IAEA1982;
## IAEA1983,IAEA1984,IAEA1985
## ----------------------------------------
## 2 NB.VISIBILITY.HL*nb.dem.mem IAEA1987,IAEA1988; IAEA1986
## 3 NB.VISIBILITY.HL*nb.og.norm IAEA1987,IAEA1988; IAEA1986
## ----------------------------------------
Participation Action: No. of NGO representatives
data_qca$ACTPART2 <- data_qca$ACT.Part.2 # for QCA package conventions
tt <- truthTable(data_qca[c(23, 10:17)], outcome = c("ACTPART2"),
incl.cut1=1, sort.by="incl", show.cases = TRUE)
# necessary conditions
superSubset(data_qca[c(23, 10:17)], outcome = "ACTPART2",
relation="nec", incl.cut=0.8, cov.cut=0.5)##
## incl cov.r
## ----------------------------------------------------
## 1 RB.INEQUALITY*NB.DEM.MEM 0.857 0.545
## 2 RB.INEQUALITY*NB.DEM.MEM*NB.OG.NORM 0.857 0.545
## ----------------------------------------------------# neg. outcome, to check for contradictions
superSubset(data_qca[c(23, 10:17)], outcome = "ACTPART2",
relation="nec", incl.cut=0.8, cov.cut=0.92,
neg.out = T)##
## incl cov.r
## --------------------------------------------------------
## 1 nb.visibility.hl 0.873 0.932
## 2 RB.COMPLEXITY 0.810 0.927
## 3 rb.inequality 0.810 0.981
## 4 rb.inequality*RB.COMPLEXITY 0.810 0.981
## 5 NB.GOV.DEPTH+nb.og.norm 0.806 0.927
## 6 NB.GOV.DEPTH+nb.dem.mem 0.921 0.935
## 7 NB.VISIBILITY.ALL+nb.dem.mem 0.898 0.943
## 8 rb.budget+nb.dem.mem 0.886 0.924
## 9 rb.budget+NB.GOV.DEPTH 0.924 0.927
## 10 rb.budget+NB.VISIBILITY.ALL 0.873 0.923
## 11 rb.budget+NB.VISIBILITY.HL+nb.og.norm 0.860 0.922
## 12 RB.BUDGET+nb.gov.depth+nb.og.norm 0.838 0.946
## 13 RB.BUDGET+nb.gov.depth+nb.dem.mem 0.876 0.948
## 14 RB.BUDGET+nb.visibility.all+nb.og.norm 0.838 0.936
## 15 RB.BUDGET+nb.visibility.all+nb.dem.mem 0.876 0.939
## 16 RB.BUDGET+rb.complexity+nb.og.norm 0.838 0.946
## 17 RB.BUDGET+rb.complexity+nb.dem.mem 0.876 0.948
## --------------------------------------------------------# sufficient conditions
eqmcc(tt, include="?", show.cases = TRUE, details = TRUE)##
## n OUT = 1/0/C: 6/64/0
## Total : 70
##
## Number of multiple-covered cases: 0
##
## M01: RB.INEQUALITY*NB.GOV.DEPTH + RB.BUDGET*nb.gov.depth*NB.DEM.MEM
## => ACTPART2
## M02: RB.INEQUALITY*NB.GOV.DEPTH + RB.BUDGET*nb.visibility.all*NB.DEM.MEM
## => ACTPART2
## M03: RB.INEQUALITY*NB.GOV.DEPTH + RB.BUDGET*rb.complexity*NB.DEM.MEM
## => ACTPART2
## M04: RB.INEQUALITY*NB.GOV.DEPTH + RB.BUDGET*RB.INEQUALITY*NB.DEM.MEM
## => ACTPART2
## M05: RB.INEQUALITY*NB.VISIBILITY.ALL + RB.BUDGET*nb.gov.depth*NB.DEM.MEM
## => ACTPART2
## M06: RB.INEQUALITY*NB.VISIBILITY.ALL +
## RB.BUDGET*nb.visibility.all*NB.DEM.MEM => ACTPART2
## M07: RB.INEQUALITY*NB.VISIBILITY.ALL + RB.BUDGET*rb.complexity*NB.DEM.MEM
## => ACTPART2
## M08: RB.INEQUALITY*NB.VISIBILITY.ALL + RB.BUDGET*RB.INEQUALITY*NB.DEM.MEM
## => ACTPART2
## M09: RB.INEQUALITY*NB.VISIBILITY.HL + RB.BUDGET*nb.gov.depth*NB.DEM.MEM
## => ACTPART2
## M10: RB.INEQUALITY*NB.VISIBILITY.HL +
## RB.BUDGET*nb.visibility.all*NB.DEM.MEM => ACTPART2
## M11: RB.INEQUALITY*NB.VISIBILITY.HL + RB.BUDGET*rb.complexity*NB.DEM.MEM
## => ACTPART2
## M12: RB.INEQUALITY*NB.VISIBILITY.HL + RB.BUDGET*RB.INEQUALITY*NB.DEM.MEM
## => ACTPART2
## M13: RB.INEQUALITY*RB.COMPLEXITY + RB.BUDGET*nb.gov.depth*NB.DEM.MEM
## => ACTPART2
## M14: RB.INEQUALITY*RB.COMPLEXITY + RB.BUDGET*nb.visibility.all*NB.DEM.MEM
## => ACTPART2
## M15: RB.INEQUALITY*RB.COMPLEXITY + RB.BUDGET*rb.complexity*NB.DEM.MEM
## => ACTPART2
## M16: RB.INEQUALITY*RB.COMPLEXITY + RB.BUDGET*RB.INEQUALITY*NB.DEM.MEM
## => ACTPART2
##
##
## -------------------
## incl cov.r cov.u (M1) (M2)
## ----------------------------------------------------------------------------
## 1 RB.INEQUALITY*NB.GOV.DEPTH 1.000 0.429 0.000 0.429 0.429
## 2 RB.INEQUALITY*NB.VISIBILITY.ALL 1.000 0.371 0.000
## 3 RB.INEQUALITY*NB.VISIBILITY.HL 1.000 0.429 0.000
## 4 RB.INEQUALITY*RB.COMPLEXITY 1.000 0.429 0.000
## 5 RB.BUDGET*nb.gov.depth*NB.DEM.MEM 1.000 0.343 0.000 0.343
## 6 RB.BUDGET*nb.visibility.all*NB.DEM.MEM 0.632 0.343 0.000 0.343
## 7 RB.BUDGET*rb.complexity*NB.DEM.MEM 1.000 0.343 0.000
## 8 RB.BUDGET*RB.INEQUALITY*NB.DEM.MEM 1.000 0.343 0.000
## ----------------------------------------------------------------------------
## M1 1.000 0.771
## M2 0.794 0.771
## M3 1.000 0.771
## M4 1.000 0.771
## M5 1.000 0.714
## M6 0.781 0.714
## M7 1.000 0.714
## M8 1.000 0.714
## M9 1.000 0.771
## M10 0.794 0.771
## M11 1.000 0.771
## M12 1.000 0.771
## M13 1.000 0.771
## M14 0.794 0.771
## M15 1.000 0.771
## M16 1.000 0.771
##
##
## ----------------------------------------------------------------------------
## (M3) (M4) (M5) (M6) (M7)
## ----------------------------------------------------------------------------
## 1 RB.INEQUALITY*NB.GOV.DEPTH 0.429 0.429
## 2 RB.INEQUALITY*NB.VISIBILITY.ALL 0.371 0.371 0.371
## 3 RB.INEQUALITY*NB.VISIBILITY.HL
## 4 RB.INEQUALITY*RB.COMPLEXITY
## 5 RB.BUDGET*nb.gov.depth*NB.DEM.MEM 0.343
## 6 RB.BUDGET*nb.visibility.all*NB.DEM.MEM 0.343
## 7 RB.BUDGET*rb.complexity*NB.DEM.MEM 0.343 0.343
## 8 RB.BUDGET*RB.INEQUALITY*NB.DEM.MEM 0.343
## ----------------------------------------------------------------------------
##
##
## ----------------------------------------------------------------------------
## (M8) (M9) (M10) (M11) (M12)
## ----------------------------------------------------------------------------
## 1 RB.INEQUALITY*NB.GOV.DEPTH
## 2 RB.INEQUALITY*NB.VISIBILITY.ALL 0.371
## 3 RB.INEQUALITY*NB.VISIBILITY.HL 0.429 0.429 0.429 0.429
## 4 RB.INEQUALITY*RB.COMPLEXITY
## 5 RB.BUDGET*nb.gov.depth*NB.DEM.MEM 0.343
## 6 RB.BUDGET*nb.visibility.all*NB.DEM.MEM 0.343
## 7 RB.BUDGET*rb.complexity*NB.DEM.MEM 0.343
## 8 RB.BUDGET*RB.INEQUALITY*NB.DEM.MEM 0.343 0.343
## ----------------------------------------------------------------------------
##
## ---------------------------------------------------------------------
## (M13) (M14) (M15) (M16)
## ---------------------------------------------------------------------
## 1 RB.INEQUALITY*NB.GOV.DEPTH
## 2 RB.INEQUALITY*NB.VISIBILITY.ALL
## 3 RB.INEQUALITY*NB.VISIBILITY.HL
## 4 RB.INEQUALITY*RB.COMPLEXITY 0.429 0.429 0.429 0.429
## 5 RB.BUDGET*nb.gov.depth*NB.DEM.MEM 0.343
## 6 RB.BUDGET*nb.visibility.all*NB.DEM.MEM 0.343
## 7 RB.BUDGET*rb.complexity*NB.DEM.MEM 0.343
## 8 RB.BUDGET*RB.INEQUALITY*NB.DEM.MEM 0.343
## ---------------------------------------------------------------------
##
## cases
## ------------------------------------------------
## 1 RB.INEQUALITY*NB.GOV.DEPTH IAEA2009,IAEA2010,IAEA2011
## 2 RB.INEQUALITY*NB.VISIBILITY.ALL IAEA2009,IAEA2010,IAEA2011
## 3 RB.INEQUALITY*NB.VISIBILITY.HL IAEA2009,IAEA2010,IAEA2011
## 4 RB.INEQUALITY*RB.COMPLEXITY IAEA2009,IAEA2010,IAEA2011
## 5 RB.BUDGET*nb.gov.depth*NB.DEM.MEM OPCW2009,OPCW2010,OPCW2011
## 6 RB.BUDGET*nb.visibility.all*NB.DEM.MEM OPCW2009,OPCW2010,OPCW2011
## 7 RB.BUDGET*rb.complexity*NB.DEM.MEM OPCW2009,OPCW2010,OPCW2011
## 8 RB.BUDGET*RB.INEQUALITY*NB.DEM.MEM OPCW2009,OPCW2010,OPCW2011
## ------------------------------------------------# neg. outcome, to check for contradictions
tt <- truthTable(data_qca[c(23, 10:17)], outcome = c("ACTPART2"),
incl.cut1=1, sort.by="incl", show.cases = TRUE,
neg.out = T)
eqmcc(tt, include="?", show.cases = TRUE, details = TRUE)##
## n OUT = 1/0/C: 54/16/0
## Total : 70
##
## Number of multiple-covered cases: 9
##
## M1: nb.dem.mem + rb.inequality*NB.VISIBILITY.HL + (RB.BUDGET*NB.GOV.DEPTH)
## => actpart2
## M2: nb.dem.mem + rb.inequality*NB.VISIBILITY.HL +
## (RB.BUDGET*NB.VISIBILITY.ALL) => actpart2
## M3: nb.dem.mem + rb.inequality*NB.VISIBILITY.HL +
## (RB.BUDGET*RB.COMPLEXITY) => actpart2
## M4: nb.dem.mem + rb.inequality*NB.VISIBILITY.HL +
## (RB.BUDGET*rb.inequality) => actpart2
##
##
## --------------------------
## incl cov.r cov.u (M1) (M2) (M3)
## ---------------------------------------------------------------------------
## 1 nb.dem.mem 1.000 0.683 0.597 0.597 0.635 0.597
## 2 rb.inequality*NB.VISIBILITY.HL 1.000 0.127 0.041 0.041 0.041 0.041
## ---------------------------------------------------------------------------
## 3 RB.BUDGET*NB.GOV.DEPTH 1.000 0.165 0.000 0.076
## 4 RB.BUDGET*NB.VISIBILITY.ALL 1.000 0.127 0.000 0.076
## 5 RB.BUDGET*RB.COMPLEXITY 1.000 0.165 0.000 0.076
## 6 RB.BUDGET*rb.inequality 1.000 0.165 0.000
## ---------------------------------------------------------------------------
## M1 1.000 0.838
## M2 1.000 0.838
## M3 1.000 0.838
## M4 1.000 0.838
##
## ----------------------------------------
## (M4)
## ----------------------------------------
## 1 nb.dem.mem 0.597
## 2 rb.inequality*NB.VISIBILITY.HL 0.041
## ----------------------------------------
## 3 RB.BUDGET*NB.GOV.DEPTH
## 4 RB.BUDGET*NB.VISIBILITY.ALL
## 5 RB.BUDGET*RB.COMPLEXITY
## 6 RB.BUDGET*rb.inequality 0.076
## ----------------------------------------
##
## cases
## ----------------------------------------
## 3 nb.dem.mem IAEA1957,IAEA1958,IAEA1959,IAEA1960,IAEA1961,IAEA1962,IAEA1963,IAEA1964,IAEA1965,IAEA1966,IAEA1967,IAEA1968,IAEA1969;
## IAEA1970,IAEA1971,IAEA1972,IAEA1973,IAEA1974,IAEA1975,IAEA1976,IAEA1977,IAEA1978,IAEA1979,IAEA1980,IAEA1981,IAEA1982;
## IAEA1989; IAEA1990,IAEA1991,IAEA1992; IAEA1987,IAEA1988;
## OPCW1997,OPCW1998,OPCW2003; IAEA1983,IAEA1984,IAEA1985;
## IAEA1986; OPCW1999,OPCW2000,OPCW2001,OPCW2002
## 4 rb.inequality*NB.VISIBILITY.HL IAEA1987,IAEA1988; IAEA2002,IAEA2003; IAEA1986;
## IAEA1999,IAEA2000,IAEA2001
## ----------------------------------------
## 3 RB.BUDGET*NB.GOV.DEPTH IAEA1983,IAEA1984,IAEA1985; IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1986; IAEA1999,IAEA2000,IAEA2001
## 4 RB.BUDGET*NB.VISIBILITY.ALL IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1986; IAEA1999,IAEA2000,IAEA2001
## 5 RB.BUDGET*RB.COMPLEXITY IAEA1983,IAEA1984,IAEA1985; IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1986; IAEA1999,IAEA2000,IAEA2001
## 6 RB.BUDGET*rb.inequality IAEA1983,IAEA1984,IAEA1985; IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1986; IAEA1999,IAEA2000,IAEA2001
## ----------------------------------------Participation Action: Participation events
data_qca$ACTPART4 <- data_qca$ACT.Part.4 # for QCA package conventions
tt <- truthTable(data_qca[c(24, 10:17)], outcome = c("ACTPART4"),
incl.cut1=0.7, sort.by="incl", show.cases = TRUE)
# necessary conditions
superSubset(data_qca[c(24, 10:17)], outcome = "ACTPART4",
relation="nec", incl.cut=0.9, cov.cut=0.7) ##
## incl cov.r
## -------------------------------------------------------
## 1 RB.BUDGET+NB.VISIBILITY.ALL+NB.DEM.MEM 0.916 0.721
## -------------------------------------------------------# neg. outcome, to check for contradictions
superSubset(data_qca[c(24, 10:17)], outcome = "ACTPART4",
relation="nec", incl.cut=0.9, cov.cut=0.63,
neg.out = T)##
## incl cov.r
## ---------------------------------------------------
## 1 nb.visibility.hl 0.974 0.644
## 2 nb.visibility.all+NB.VISIBILITY.HL 0.913 0.631
## 3 RB.BUDGET+nb.visibility.all 0.933 0.682
## 4 RB.BUDGET+nb.gov.depth+nb.og.norm 0.933 0.652
## 5 RB.BUDGET+rb.complexity+nb.og.norm 0.933 0.652
## ---------------------------------------------------
# sufficient conditions w/o nc from above
tt <- truthTable(data_qca[c(1:56, 58:61, 63:70), c(24, 11:12, 14:15, 17)],
outcome = c("ACTPART4"), incl.cut1=0.7, sort.by="incl",
show.cases = TRUE)
eqmcc(tt, include="?", show.cases = TRUE, details = TRUE)##
## n OUT = 1/0/C: 25/43/0
## Total : 68
##
## Number of multiple-covered cases: 8
##
## M1: NB.VISIBILITY.HL + (NB.GOV.DEPTH*NB.OG.NORM) => ACTPART4
## M2: NB.VISIBILITY.HL + (RB.COMPLEXITY*NB.OG.NORM) => ACTPART4
## M3: NB.VISIBILITY.HL + (rb.inequality*NB.OG.NORM) => ACTPART4
##
## --------------------------
## incl cov.r cov.u (M1) (M2) (M3)
## ---------------------------------------------------------------------
## 1 NB.VISIBILITY.HL 0.909 0.323 0.097 0.097 0.097 0.194
## ---------------------------------------------------------------------
## 2 NB.GOV.DEPTH*NB.OG.NORM 0.769 0.516 0.000 0.290
## 3 RB.COMPLEXITY*NB.OG.NORM 0.769 0.516 0.000 0.290
## 4 rb.inequality*NB.OG.NORM 0.730 0.419 0.000 0.290
## ---------------------------------------------------------------------
## M1 0.798 0.613
## M2 0.798 0.613
## M3 0.798 0.613
##
## cases
## ----------------------------------
## 1 NB.VISIBILITY.HL IAEA1986,IAEA1987,IAEA1988; IAEA2009,IAEA2010,IAEA2011;
## IAEA1999,IAEA2000,IAEA2001,IAEA2002,IAEA2003
## ----------------------------------
## 2 NB.GOV.DEPTH*NB.OG.NORM IAEA2009,IAEA2010,IAEA2011; IAEA1999,IAEA2000,IAEA2001,IAEA2002,IAEA2003;
## IAEA1990,IAEA1991,IAEA1992,IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998,IAEA2004,IAEA2005,IAEA2006,IAEA2007,IAEA2008
## 3 RB.COMPLEXITY*NB.OG.NORM IAEA2009,IAEA2010,IAEA2011; IAEA1999,IAEA2000,IAEA2001,IAEA2002,IAEA2003;
## IAEA1990,IAEA1991,IAEA1992,IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998,IAEA2004,IAEA2005,IAEA2006,IAEA2007,IAEA2008
## 4 rb.inequality*NB.OG.NORM IAEA1999,IAEA2000,IAEA2001,IAEA2002,IAEA2003; IAEA1990,IAEA1991,IAEA1992,IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998,IAEA2004,IAEA2005,IAEA2006,IAEA2007,IAEA2008
## ----------------------------------QCAfit(fsor(data_qca$NB.visibility.hl, fsand(data_qca$NB.gov.depth,
data_qca$NB.og.norm)), data_qca$ACTPART4)## Cons. Suf. Cov. Suf. PRI PRODUCT
## [1,] 0.798 0.613 0.798 0.637
## attr(,"class")
## [1] "SetMethod"# neg. outcome, to check for contradictions
tt <- truthTable(data_qca[c(1:56, 58:61, 63:70), c(24, 11:12, 14:15, 17)],
outcome = c("ACTPART4"), incl.cut1=0.7, sort.by="incl",
show.cases = TRUE, neg.out = T)
eqmcc(tt, include="?", show.cases = TRUE, details = TRUE)##
## n OUT = 1/0/C: 13/55/0
## Total : 68
##
## Number of multiple-covered cases: 0
##
## M1: nb.gov.depth*nb.og.norm => actpart4
## M2: RB.COMPLEXITY*nb.gov.depth => actpart4
## M3: rb.inequality*nb.gov.depth => actpart4
##
## --------------------------
## incl cov.r cov.u (M1) (M2) (M3)
## -----------------------------------------------------------------------
## 1 nb.gov.depth*nb.og.norm 0.895 0.416 0.000 -
## 2 RB.COMPLEXITY*nb.gov.depth 0.895 0.416 0.000 -
## 3 rb.inequality*nb.gov.depth 0.895 0.416 0.000 -
## -----------------------------------------------------------------------
## M1 0.895 0.416
## M2 0.895 0.416
## M3 0.895 0.416
##
## cases
## ------------------------------------
## 1 nb.gov.depth*nb.og.norm IAEA1957,IAEA1958,IAEA1959,IAEA1960,IAEA1961,IAEA1962,IAEA1963,IAEA1964,IAEA1965,IAEA1966,IAEA1967,IAEA1968,IAEA1969
## 2 RB.COMPLEXITY*nb.gov.depth IAEA1957,IAEA1958,IAEA1959,IAEA1960,IAEA1961,IAEA1962,IAEA1963,IAEA1964,IAEA1965,IAEA1966,IAEA1967,IAEA1968,IAEA1969
## 3 rb.inequality*nb.gov.depth IAEA1957,IAEA1958,IAEA1959,IAEA1960,IAEA1961,IAEA1962,IAEA1963,IAEA1964,IAEA1965,IAEA1966,IAEA1967,IAEA1968,IAEA1969
## ------------------------------------Transparency Action
data_qca$ACTTRANS <- data_qca$ACT.Trans # for QCA package conventions
tt <- truthTable(data_qca[c(1:4, 8:70), c(25, 10:17)],
outcome = c("ACTTRANS"), incl.cut1=0.7, sort.by="incl",
show.cases = TRUE)
# necessary conditions
superSubset(data_qca[c(1:4, 8:70), c(25, 10:17)], outcome = "ACTTRANS",
relation="nec", incl.cut=1, cov.cut=0.4) ##
## incl cov.r
## ------------------------------------------------
## 1 NB.DEM.MEM 1.000 0.519
## 2 NB.DEM.MEM*NB.OG.NORM 1.000 0.530
## 3 rb.budget*NB.OG.NORM 1.000 0.614
## 4 rb.budget*NB.DEM.MEM 1.000 0.805
## 5 rb.budget*NB.DEM.MEM*NB.OG.NORM 1.000 0.805
## ------------------------------------------------# neg. outcome, to check for contradictions
superSubset(data_qca[c(1:4, 8:70), c(25, 10:17)], outcome = "ACTTRANS",
relation="nec", incl.cut=1, cov.cut=0.4, neg.out = T) ##
## incl cov.r
## ---------------------------------------------------------------------------
## 1 RB.COMPLEXITY+NB.OG.NORM 1.000 0.791
## 2 RB.COMPLEXITY+nb.gov.depth 1.000 0.791
## 3 RB.COMPLEXITY+nb.visibility.hl 1.000 0.791
## 4 RB.COMPLEXITY+nb.visibility.all 1.000 0.791
## 5 rb.inequality+NB.OG.NORM 1.000 0.791
## 6 rb.inequality+nb.gov.depth 1.000 0.828
## 7 rb.inequality+nb.visibility.hl 1.000 0.828
## 8 rb.inequality+nb.visibility.all 1.000 0.823
## 9 rb.inequality+rb.complexity 1.000 0.828
## 10 RB.INEQUALITY+RB.COMPLEXITY 1.000 0.791
## 11 NB.GOV.DEPTH+nb.dem.mem+NB.OG.NORM 1.000 0.791
## 12 nb.visibility.hl+nb.dem.mem+NB.OG.NORM 1.000 0.791
## 13 nb.visibility.hl+NB.DEM.MEM+nb.og.norm 1.000 0.791
## 14 nb.visibility.hl+NB.GOV.DEPTH+nb.og.norm 1.000 0.791
## 15 nb.visibility.hl+NB.GOV.DEPTH+nb.dem.mem 1.000 0.791
## 16 nb.visibility.all+NB.GOV.DEPTH+nb.dem.mem 1.000 0.791
## 17 rb.complexity+NB.GOV.DEPTH+nb.dem.mem 1.000 0.791
## 18 RB.INEQUALITY+NB.GOV.DEPTH+nb.dem.mem 1.000 0.791
## 19 rb.budget+nb.gov.depth+NB.DEM.MEM+nb.og.norm 1.000 0.791
## 20 rb.budget+nb.visibility.all+NB.DEM.MEM+nb.og.norm 1.000 0.791
## 21 rb.budget+nb.visibility.all+NB.GOV.DEPTH+nb.og.norm 1.000 0.791
## 22 rb.budget+nb.visibility.all+NB.VISIBILITY.HL+NB.DEM.MEM 1.000 0.791
## 23 rb.budget+nb.visibility.all+NB.VISIBILITY.HL+NB.GOV.DEPTH 1.000 0.791
## 24 rb.budget+rb.complexity+NB.DEM.MEM+nb.og.norm 1.000 0.791
## 25 rb.budget+rb.complexity+NB.GOV.DEPTH+nb.og.norm 1.000 0.791
## 26 rb.budget+RB.INEQUALITY+NB.DEM.MEM+nb.og.norm 1.000 0.791
## 27 rb.budget+RB.INEQUALITY+NB.GOV.DEPTH+nb.og.norm 1.000 0.791
## ---------------------------------------------------------------------------
#sufficient condition, without democratic members
tt <- truthTable(data_qca[c(1:4, 8:70), c(25, 10:15, 17)],
outcome = c("ACTTRANS"), incl.cut1=0.7, sort.by="incl",
show.cases = TRUE)
eqmcc(tt, include="?", show.cases = TRUE, details = TRUE)##
## n OUT = 1/0/C: 5/62/0
## Total : 67
##
## Number of multiple-covered cases: 0
##
## M1: rb.budget*NB.VISIBILITY.HL*NB.OG.NORM => ACTTRANS
##
## incl cov.r cov.u
## -------------------------------------------------------------
## 1 rb.budget*NB.VISIBILITY.HL*NB.OG.NORM 0.893 0.357 -
## -------------------------------------------------------------
## M1 0.893 0.357
##
## cases
## -----------------------------------------------
## 1 rb.budget*NB.VISIBILITY.HL*NB.OG.NORM IAEA2009,IAEA2010,IAEA2011; IAEA2002,IAEA2003
## -----------------------------------------------# neg. outcome, to check for contradictions
tt <- truthTable(data_qca[c(1:4, 8:70), c(25, 10:15, 17)],
outcome = c("ACTTRANS"), incl.cut1=0.7, sort.by="incl",
show.cases = TRUE, neg.out = T)
eqmcc(tt, include="?", show.cases = TRUE, details = TRUE)##
## n OUT = 1/0/C: 46/21/0
## Total : 67
##
## Number of multiple-covered cases: 4
##
## M1: nb.og.norm + RB.BUDGET <=> acttrans
##
## incl cov.r cov.u
## ----------------------------------
## 1 nb.og.norm 1.000 0.589 0.517
## 2 RB.BUDGET 1.000 0.317 0.245
## ----------------------------------
## M1 1.000 0.834
##
## cases
## --------------------
## 1 nb.og.norm IAEA1957,IAEA1958,IAEA1959,IAEA1960,IAEA1964,IAEA1965,IAEA1966,IAEA1967,IAEA1968,IAEA1969;
## IAEA1970,IAEA1971,IAEA1972,IAEA1973,IAEA1974,IAEA1975,IAEA1976,IAEA1977,IAEA1978,IAEA1979,IAEA1980,IAEA1981,IAEA1982;
## IAEA1989; IAEA1987,IAEA1988; IAEA1983,IAEA1984,IAEA1985; IAEA1986
## 2 RB.BUDGET IAEA1983,IAEA1984,IAEA1985; IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1986; IAEA1999,IAEA2000,IAEA2001; OPCW1999,OPCW2000,OPCW2001,OPCW2002,OPCW2009,OPCW2010,OPCW2011
## --------------------Dusa, Adrian and Alrik Thiem (2014). QCA: A Package for Qualitative Comparative Analysis. R package version 1.1-3. URL: http://cran.r-project.org/package=QCA. Fellows, Ian (2014). wordcloud: Word Clouds. R package version 2.5. URL: http://CRAN.R-project.org/package=wordcloud. Fox, John and Sanford Weisberg (2011). An {R} Companion to Applied Regression, Second Edition. Thousand Oaks CA: Sage. URL: http://socserv.socsci.mcmaster.ca/jfox/Books/Companion. Huang, Ronggui. (2014). QCA3: Yet another package for Qualitative Comparative Analysis. R package version 0.0-7. URL: http://asrr.r-forge.r-project.org/. Quaranta, Mario (2013). SetMethods: A Package Companion to “Set-Theoretic Methods for the Social Sciences”. R package version 1.0. URL: http://CRAN.R-project.org/package=SetMethods.↩